﻿Public Class ClsTVoucherDetail
    'T_VoucherDetail(24)
    'DetailId,VoucherId,EntryNumber,Excerpta,AccountCode,AccountCodeName,
    'Debit,Credit,Quantity,Price,Unit,SettleMode,
    'SettleCode,SettleDate,Payer,CurrencyCode,ExchangeRate,CurrencyNumber,
    'TransCode,ProjectName,ProjectCode,ProjectCustomer

    Private m_DetailId As Integer '0
    Private m_VoucherId As Integer '1
    Private m_EntryNumber As Integer '2
    Private m_Excerpta As String '3 摘要
    Private m_AccountCode As String '4
    Private m_AccountCodeName As String '5
    Private m_Debit As Decimal '6
    Private m_Credit As Decimal '7
    Private m_Quantity As Single '8
    Private m_Price As Decimal '9
    Private m_Unit As String '10
    Private m_SettleMode As String '11
    Private m_SettleCode As String '12
    Private m_SettleDate As DateTime '13
    Private m_Payer As String '14
    Private m_CurrencyCode As String '15 本位币，默认RMB
    Private m_ExchangeRate As Single '16 汇率
    Private m_CurrencyNumber As Decimal '17 外币数量
    Private m_TransCode As String '18 往来业务编号
    Private m_ProjectName As String '19 核算类别名称
    Private m_ProjectCode As String '20 核算项目代码
    Private m_ProjectCustomer As String '21 核算单位：供应或采购商名称
    Private m_VoucherNumber As Integer '22 凭证本期连续号
    Private m_VoucherGroupId As Integer '23 凭证类别编号 
    Private m_VoucherGroup As String '24 凭证类别字号
    Private m_WorkPeriod As String '25 会计期间

    Public Property DetailId As Integer
        Get
            Return m_DetailId
        End Get
        Set(value As Integer)
            m_DetailId = value
        End Set
    End Property

    Public Property VoucherId As Integer
        Get
            Return m_VoucherId
        End Get
        Set(value As Integer)
            m_VoucherId = value
        End Set
    End Property

    Public Property EntryNumber As Integer
        Get
            Return m_EntryNumber
        End Get
        Set(value As Integer)
            m_EntryNumber = value
        End Set
    End Property

    Public Property Excerpta As String
        Get
            Return m_Excerpta
        End Get
        Set(value As String)
            m_Excerpta = value
        End Set
    End Property

    Public Property AccountCode As String
        Get
            Return m_AccountCode
        End Get
        Set(value As String)
            m_AccountCode = value
        End Set
    End Property

    Public Property AccountCodeName As String
        Get
            Return m_AccountCodeName
        End Get
        Set(value As String)
            m_AccountCodeName = value
        End Set
    End Property

    Public Property Debit As Decimal
        Get
            Return m_Debit
        End Get
        Set(value As Decimal)
            m_Debit = value
        End Set
    End Property

    Public Property Credit As Decimal
        Get
            Return m_Credit
        End Get
        Set(value As Decimal)
            m_Credit = value
        End Set
    End Property

    Public Property Quantity As Single
        Get
            Return m_Quantity
        End Get
        Set(value As Single)
            m_Quantity = value
        End Set
    End Property

    Public Property Price As Decimal
        Get
            Return m_Price
        End Get
        Set(value As Decimal)
            m_Price = value
        End Set
    End Property

    Public Property Unit As String
        Get
            Return m_Unit
        End Get
        Set(value As String)
            m_Unit = value
        End Set
    End Property

    Public Property SettleMode As String
        Get
            Return m_SettleMode
        End Get
        Set(value As String)
            m_SettleMode = value
        End Set
    End Property

    Public Property SettleCode As String
        Get
            Return m_SettleCode
        End Get
        Set(value As String)
            m_SettleCode = value
        End Set
    End Property

    Public Property SettleDate As Date
        Get
            Return m_SettleDate
        End Get
        Set(value As Date)
            m_SettleDate = value
        End Set
    End Property

    Public Property Payer As String
        Get
            Return m_Payer
        End Get
        Set(value As String)
            m_Payer = value
        End Set
    End Property

    Public Property CurrencyCode As String
        Get
            Return m_CurrencyCode
        End Get
        Set(value As String)
            m_CurrencyCode = value
        End Set
    End Property

    Public Property ExchangeRate As Single
        Get
            Return m_ExchangeRate
        End Get
        Set(value As Single)
            m_ExchangeRate = value
        End Set
    End Property

    Public Property CurrencyNumber As Decimal
        Get
            Return m_CurrencyNumber
        End Get
        Set(value As Decimal)
            m_CurrencyNumber = value
        End Set
    End Property

    Public Property TransCode As String
        Get
            Return m_TransCode
        End Get
        Set(value As String)
            m_TransCode = value
        End Set
    End Property

    Public Property ProjectName As String
        Get
            Return m_ProjectName
        End Get
        Set(value As String)
            m_ProjectName = value
        End Set
    End Property

    Public Property ProjectCode As String
        Get
            Return m_ProjectCode
        End Get
        Set(value As String)
            m_ProjectCode = value
        End Set
    End Property

    Public Property ProjectCustomer As String
        Get
            Return m_ProjectCustomer
        End Get
        Set(value As String)
            m_ProjectCustomer = value
        End Set
    End Property

    Public Property VoucherNumber As Integer
        Get
            Return m_VoucherNumber
        End Get
        Set(value As Integer)
            m_VoucherNumber = value
        End Set
    End Property

    Public Property VoucherGroupId As Integer
        Get
            Return m_VoucherGroupId
        End Get
        Set(value As Integer)
            m_VoucherGroupId = value
        End Set
    End Property

    Public Property VoucherGroup As String
        Get
            Return m_VoucherGroup
        End Get
        Set(value As String)
            m_VoucherGroup = value
        End Set
    End Property

    Public Property WorkPeriod As String
        Get
            Return m_WorkPeriod
        End Get
        Set(value As String)
            m_WorkPeriod = value
        End Set
    End Property
End Class
